home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / fdical.zip / WH_MAINT.PRG < prev    next >
Text File  |  1993-01-04  |  507b  |  22 lines
  1. *  WH_MAINT.PRG
  2.  
  3. module = [WH]
  4.  
  5. wtitle  =  [─Cat──┬──Description────────────────┬Type┬──Rate─┬Tax┬Govt┬Comm┬Inhouse┬Bill]
  6. wfields =  [cat+'│'+SUBS(desc,1,29)+'│  '+type+' │ '+STR(rate,6,2)+'│ '+IIF(taxable,'Y','N')+' │  '+IIF(govt_tax,'Y','N')+' │  '+IIF(commission,'Y','N')+' │  ' +IIF(inhouse,'Y','N')+'    │  ' +IIF(billable,'Y','N')]
  7. mtitle = [Service Categories]
  8.  
  9. DO events
  10. DO whom
  11.  
  12. DO browse
  13.  
  14. CLOSE DATA
  15. RETURN
  16.  
  17. PROC wh_gets
  18.   PARAM mrow
  19.   @ mrow,left_col+4  GET M->whom
  20. RETURN
  21.  
  22.